(Info-insert-dir): Ensure directory ends with slash.

diff --git a/lisp/info.el b/lisp/info.el
index efbd3e0fcf4d85b0913f380db328e9d4a44bcffc..733cd65398b1b425513959efa84953f21429af41 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -464,7 +464,8 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
                            Info-dir-file-attributes
                            (cons (cons file attrs)
                                  Info-dir-file-attributes))))))
-         (or (cdr dirs) (setq Info-dir-contents-directory (car dirs)))
+         (or (cdr dirs) (setq Info-dir-contents-directory
+                              (file-name-as-directory (car dirs))))
          (setq dirs (cdr dirs))))
       
       (or buffers